home *** CD-ROM | disk | FTP | other *** search
/ Chip 2011 November / CHIP_2011_11.iso / Programy / Inne / Gry / Carnage_Contest / scripts / CC Original / movement / Self-Healing.lua < prev    next >
Text File  |  2010-07-27  |  2KB  |  61 lines
  1. --------------------------------------------------------------------------------
  2. -- Weapon Self-Healing
  3. -- Original Carnage Contest Weapon
  4. -- Script by DC, August 2009, www.UnrealSoftware.de
  5. --------------------------------------------------------------------------------
  6.  
  7. -- Setup Tables
  8. if cc==nil then cc={} end
  9. cc.selfhealing={}
  10.  
  11. -- Load & Prepare Ressources
  12. cc.selfhealing.gfx_wpn=loadgfx("weapons/selfhealing.png")                        -- Weapon Image
  13. setmidhandle(cc.selfhealing.gfx_wpn)
  14. cc.selfhealing.sfx_heal=loadsfx("selfhealing.ogg")
  15.  
  16. --------------------------------------------------------------------------------
  17. -- Weapon: Self-Healing
  18. --------------------------------------------------------------------------------
  19.  
  20. cc.selfhealing.id=addweapon("cc.selfhealing","Self-Healing",cc.selfhealing.gfx_wpn,1,2)    -- Add Weapon (1 use, first in round 2)
  21.  
  22. function cc.selfhealing.draw()                                                -- Draw
  23.     -- Do nothing!
  24. end
  25.  
  26. function cc.selfhealing.attack(attack)                                        -- Attack
  27.     if (weapon_shots<=0) then
  28.         if (attack==1) then
  29.             -- No more weapon switching!
  30.             useweapon(0)
  31.             weapon_shots=weapon_shots+1
  32.             -- Heal
  33.             playerheal(0,50)
  34.             playerstate(0,state_poisoned,0)
  35.             -- Effect
  36.             playsound(cc.selfhealing.sfx_heal)
  37.             x=getplayerx(0)
  38.             y=getplayery(0)+3
  39.             particle(p_muzzle,x,y)
  40.             particlesize(1,1)
  41.             particlecolor(255,0,0)
  42.             particlealpha(1.0)
  43.             particlefadealpha(0.01)
  44.             particle(p_muzzle,x,y)
  45.             particlesize(1,2)
  46.             particlecolor(255,0,0)
  47.             particlealpha(1.0)
  48.             particlefadealpha(0.02)
  49.             particlerotation(0)
  50.             for j=1,15,1 do
  51.                 particle(p_flare,x-10.0+math.random()*20.0,y+math.random()*10.0)
  52.                 particlesize(3.0,3.0)
  53.                 particlecolor(255,0,0)
  54.                 particlespeed(0,math.random(2,15)*-0.1)
  55.                 particlefadealpha(0.01)
  56.             end
  57.             -- End Turn
  58.             endturn()
  59.         end
  60.     end
  61. end